home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd2.bin / system / xteq / setup.exe / {app} / plugins / Xifa Gku 4.xpl < prev    next >
Encoding:
XSetup plugin  |  2000-08-07  |  1.6 KB  |  60 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Instant Messaging\Gku"
  5. "NAME"="Stay On Top"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Force Gku To Stay On Top"
  8. "DESCRIPTION 1"="Ticking this option forces Gku to stay on top of all other windows. (This is also known as the 'Always On Top' option)."
  9. "DESCRIPTION 2"="Unticking it causes the Gku window to act like normal."
  10. "DESCRIPTION 3"="By default, this option is ticked."
  11. "DESCRIPTION 4"="Gku may be obtained at http://lockergnome.virtualave.net"
  12. "COMMENT 1"="For more information, go to http://www.xteq.com."
  13. "COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
  14. "COMMENT 3"="Thanks also to Vex, the maker of Gku."
  15. "VERSION"="3.00"
  16. "AUTHOR"="Vex Bit <vex@xifa.fsnet.co.uk>"
  17. "COPYRIGHT"="Copyright ⌐ 1999-2000, Xifa Technologies, Inc."
  18.  
  19. 'Declaration of some constants
  20. sFile=""
  21. sSec="GUI"
  22. sV1="AlwaysOnTop"
  23.  
  24. 'Called when the Plugin is started
  25. SUB Plugin_Initialize
  26.  Call GetGkuFile
  27.  
  28.  If FileExists(sFile) then
  29.  
  30.     i=IniReadValue(sFile,sSec,sV1)
  31.     if i="1" then SetUiElement 1,true
  32.  
  33.  else
  34.     Call Disable()
  35.  End if
  36.  
  37. END SUB
  38.  
  39. 'Called when the Plugin should validate the Data the user has entered
  40. SUB Plugin_CheckData(ElementIndex)
  41. END SUB
  42.  
  43. 'Called when the Plugin should apply the changes
  44. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  45.  s="0"
  46.  b=GetUIElement(1)
  47.  if b=true then s="1"
  48.  Call iniWriteValue(sFile,sSec,sV1,s)
  49. END SUB
  50.  
  51. 'Called when the Plugin is about to be removed from memory
  52. SUB Plugin_Terminate
  53. END SUB
  54.  
  55. 'User defined SUB's
  56. SUB GetGKUFile
  57.    s=iniReadValue("WIN.INI","GKU","InstallDir")
  58.    sFile=s & "\gku.ini"
  59. END SUB
  60.